Exploring the Internet with NASA/Exploring the Internet With NASA.iso/pc/bdmedia/source/nasa.dxr/Scripts_7_Field Scripts.ls

Text File | 1996-11-08 | 350 b | 18 lines

on clearEarthInventions
  put EMPTY into field "earth inventions"
end

on checkName
  if field "Earth Inventions" = "Earth Inventions" then
    go("GoodEarth")
  else
    go("Earthmis1")
  end if
end

on setFieldContents fieldList, fieldValue
  repeat with x = 1 to count(fieldList)
    put fieldValue into field getAt(fieldList, x)
  end repeat
end